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'® * 
'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
'® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
i ALL RIGHTS RESERVED. * 
' * 
'® THIS i irke 4 FURNISHED UNDER A LICENSE AND MAY BE USED AND gt ba * 
'® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AN . A THE * 
'® INCLUSION OF tHE ABOVE SP apart oes NOTICE. THIS Sor TY ARE OR OTHER * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'® TRANSFERRED. * 
y ® 
'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
't AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'® CORPORATION. * 
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Y FOR THE USE OR RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 


SRR RRA REE REE ERA EAE AEE AAA AAA AAA AAA ERRAEAEREERERREEE 


FACILITY: MTAACP 
ABSTRACT 

this module handles virtaul io errors including mapping errors. 
ENVIRONMENT : 


starlet operating system, including privileged system services 
and internal exec routines. 
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Named for one of the ynvortunate customers who suffered "> 
to determine the greet UCBSL_MT_RECORD pocret while r xi ne Se 
create a usernyr' ten magtape driver iS change eliminates 
use of the device dependent field, ul T_RECORD in favor of 


the device independent field, tat URECORD.~ 
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AUTHOR: D. H. GILLESPIE, CREATION DATE: 

: MODIFIED BY: 

i v03-005 ROW0258 Ralph 0. Weber 21-NOV-1983 
: The Paul Painter Memorial Enhancement 
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ENDVO 1$-se 1984 02:16:41 AX=-11 Bliss-32 V4.0-74 Page 2 
V04= 122338-1382 93 318'3 EMTAACP.SRe ENDVOL .B32; : (1) 
; 8 1} : 
; 9 25 1! v03-004 MMD0148 Meg Bygent 26-Apr-1983 8:50 : 
3 oy 44 ! } Change references to 80 to the symbol ANSI_LBLSZ ‘ 
o = 0o¢ 1; v03-003 MMDO003 Meg Dumont, 21-Jan-1983 12:29 : 
; © 65 1! Add a check in User handle of EOT code. If reading a tape ° 
; ee oped : : and EOT is encountered ignore the error and requeue the I/O's. ‘ 
; 68 3068 1 ¢ v03-002 mmMD0002 neg Dumont, 35-Jan-1983 15:31 ; 
3; § 0067 1! Fix to the User EOT handling code. Add code to stop access to ‘ 
; 68 0068 1! a file if the trailer Labels have been read. Fix to read : 
; +4 34 ! } reverse, to allow for 0 length files on tape. ‘ 
: 0071 1! v03-001 mmMD0001 Neg Dumont 5-Nov-1982 16:28 ; 
es bors 7 | Support for the SS$_SERIOUSEXCP code from the streaming : 
oe Zi 0075 1! tape drives. Support to check for USER EOT condition ‘ 
; 74 0074 1! and pass the I0 to the user with success code of E0V, EOT : 
; 0075 1! or EOF. Added a check so that if user is reading a ; 
| 0076 1! file in reverse the ACP will not lose its postion on the ‘ 
3 0077 1! tape. ‘ 
: «78 0078 1! ; 
; ie st ' V02-006 REFORMAT Maria del C. Nasr 30-Jun-1980 : 
7 a 0081 1! v02-005 MCNO017 Maria del C. Nasr 18-Jun-1980 ; 
; § 0082 1! Request START_VIO in next_volume write after 10 has been ; 
.. & 0085 1! successfully completed. This is to fix a problem with : 
; 84 0084 1! multivolume processing, in which the next volume was not ‘ 
; o? Coes : } requested if EOT was sensed when writing the header Labels. . 
; of 0087 1! V02-004 SPR27361 Maria del C. Nasr 10-Jun-1980 ‘ 
; 0088 1! Hold posting of 10 after all I0 has been completed successfully, ‘ 
; «689 0089 1! to avoid hanging the user process by the need to return errors ; 
> 90 0090 1! after 10 has been posted. Also, eliminate the check for user ; 
; 0091 1! labels AST's. : 
; 0092 1! : 
; § 0095 1! : 
: 94 0094 1 !e« : 
: 0095 1 : 
; 0096 1 LIBRARY ‘SYSS$LIBRARY:LIB.L32'; 
; wr 0097 1 
: «98 0098 1 REQUIRE ‘SRCS$:MTADEF .832'; 
; JW 0482 1 
: 100 0485 1 FORWARD ROUTINE 
; 13) rtf: ' END_OF _VOL : NOPRES NOVALUE, ! end of volume processing 
; 108 Bees : ; insert request in error at head of blocked io queue 
: 193 38 : INSERT_HEAD : COMMON_CALL NOVALUE, 
3 109 rh : ; insert map failures at tail of blocked io queue 
; 109 492 1 INSERT TAIL : COMMON CALL NOVALUE 
; 110 95 1 NEXT_VOL_READ : NOVALUE L NEXT_VOL_READ, ! get next volume on read 
3 1) rh ' NEXT _VOL_WRITE : NOVALUE LSNEXT_VOL_WRIT; ! get next volume on write 
: 18 rh 1 EXTERNAL ROUTINE 
: (116 497 1 ADJTM : COMMON_CALL, ' adjust tape mark counter 
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ERNA 

CURRENT _UCB 
CURRENT _WCB 
HDR1 


10_PACKET 
USER_STATUS 


oe 6 of 8 6 8 62 oe oe 


OSITION 

_HEADER NOVALUE, 
: LSWRITE_ 
: LSWRITE-TRAILER NOVALUE; 


$4 re: Bliss-32 V4.0-74 
MTAACP.SRCJENDVOL .B32; 


wait for io from hy 
complete outstanding io's 
get next volume for read 
get next volume for write 
complete io 

convert decimal to binary 
read one tape block 

read reverse one tape block 
return zasenee io in error 
space given number of tape marks 
start up virtual io 

disable virtual io request 


s 
retores tape position lost when reading backwards 


reposition tape 

write hdrl and hdr2 
write tape mark 

write trailer label set 


address of current unit control block 
address of current window control block 


address of hdri (eof1) Label 
address of io request packet 
status returned to user 
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GLOBAL ROUTINE END_OF_VOL : NOPRES NOVALUE = 


14 
t 


! FUNCTIONAL DESCRIPTION: 
this routine handles io errors on virtual io including mapping errors 


! CALLING SEQUENCE: 
end_of_vol() 


: INPUT PARAMETERS: 
none 


IMPLICIT INPUTS: 


; 141 7 

; 106 4 1 

; 14 2 re 

> 144 § ,} 

: 18 1 i 

3 129 : 1} 

; 148 0 1! 

; 149 ee 

; 150 ¢ 1: 

; 151 1! 

; 3 § 4 1! 

3; 7 > 3% 

> 154 : 1! 

3 139 1! current_vcb - address of current volume control block 

3 138 : ’ } io_packet - address of io request packet 

; 158 0 1 ! OUTPUT PARAMETERS: 

3 339 82 a; 33 none 

; 160 5 ¢ 1! 

; 161 05 1 ! IMPLICIT OUTPUTS: 

; 166 32 : ! jio_packet zeroed if it should not be completed 

> 164 9248 1 ! ROUTINE VALUE: 

: 165 0547 1! none 

; 166 0548 1! 

: 167 0549 1 ! SIDE EFFECTS: 

: 168 0550 1! end of volume processing 

; 1 0551 1! 

; 170 8226 1 !-- 

3 (171 0553 1 

; ive 0554 2 BEGIN 

MB 0555 2 

: 174 0556 § EXTERNAL REGISTER 

3 WF 0557 COMMON H 

: 176 0558 2 

; 177 3228 2 OCAL 

3 i7e 560 BLOCKS1, ! number of blocks read ; 
; 179 0561 BLOCKS2, ! number of blocks recorded in trailer Label 
; 180 3206 TA, !' number of TM read 

; «(181 056 10_ERROR, ! driver error 

: 133 O268 PACKET : REF BBLOCK; ! address of io request packet 
- % 5 PACKET = .10_PACKET; 

; 188 $369 

3; «(186 0568 : if virtual bit set then mapping error. this occurs when io is being held 
: «187 fa 44 ! up for either user labels, io error, end_of_volume processing or because 
; «4188 570 ! end_of_file has been read 

: «4189 571 : 

; 190 276 

3; «191 57 IF .PACKETCIRP$V_VIRTUALJ 

3 138 574 H 

3; 19 575 BEGIN 

3 194 276 

: 195 57 ‘if mapping error caused by writing user labels and therefore forcing a 
3 136 278 : close of the current file then return the io in error 
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ENDV 16-Sep-1984 02:16:4 AX-11 Bliss-32 V4.0-74 Pa 5 
v04~ 1e-88b-19be $3:4gsse — Entance SRelEnsvoLr :o32- 9 025 
; 198 0 3 
; 199 1 c . CURRENT_VCBCVCBSV_MUSTCLOSE) : 
; o} § ERR_EXIT(SS$_MUSTCLOSEFL); : 
; $8 5 ! if the number of tape marks into the file is two and label indicates ; 
: $e 2 § ; eof then at endof_file : 
; 588 : ; 
; oF 289 IF_.HDRICHDISL_HDILIDJ EQL ‘EOF : 
; 99 Hy ERR_EXIT(SS$_ENDOFFILE); : 
: 211 398 ! blocked io because of mapping failure ’ 
; \¢ 0594 ' Check to see if user handling of EOT is enabled. If it : 
; Fs S232 } = then complete request with abort if not queue for furture ‘ 
3 ! use 3 
; 215 0899 : 
3 1 0598 IF _ .CURRENT_VCBCVCB$V_ENUSEREOT) ‘ 
ae 4 0599 THEN 3 
; 218 0600 4 GIN 3 
5 19 0601 4 PACKETCIRP$L_IOST1] = SS$_ABORT; : 
Bo Be Toe : 
; 0604 3 ELSE ; 
: 3 ars 4 KERNEL CALL(INSERT_TAIL, .PACKET) 
; $2 0607 4 10_PACRET= 0; ~ ; ; 
> 226 0608 4 : 3 
3 7 0609 END; 3 
i ew : 
; 0612 ELSE ; 
3 1 1 F 
; § bela ! if virtual bit is not set then an error occurred on a virtual io : 
; 0615 ! request. the error if ss$_endoftape or ss$_endoffile indicates that : 
: ; 16 end of volume processing Ts necessary ; 
. 2 18 i The call to STOP_VIO is required in order to eliminate any confusion ; 
: 7 1 ! between the user and the ACP about who should be reading 3 
: 0 ! or writing to the tape at any given time. This will cause an : 
: 9 1 ! 10's tried to fail with either an SS$_ILLBLKNUM or SS$_ENDOFFILE . 
: re ¢ depending on the type of processing the ACP is doing. : 
; 4g 4 BEGIN : 
: 24 5 KERNEL_CALL (STOP N10 ! Don't allow virtual IQ's 3 
; “ $ IO_ERROR = .(PACRETCIRPSL_10ST1})<0, 16>: : 
; 46 : IF .10_ERROR EQL SS$_MEDOFL F 
: 26 THEN 3 
: 248 0 4 BEGIN : 
3 249 1 4 REPOSITION( .CURRENT_UCBCUCBSL_RECORD) ); 3 
; 250 ¢ 4 KERNEL CALL(INSERT_HEAD, .PACKET); 
3 @e) 4 = 0; ! don't complete io 
; 38 4 KERNEL_CALL(START_VIO); 
3 2 5 ; RETURN; 
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-IO0_ERROR NEQ SS$_ENDOF TAPE 
THEN 


BEGIN ' return all other errors to user 
USER ~STATUSEO = -PACKETCIRPSL_IOST 1233 


USERS evTiry IRP$L_10ST2); 
ERNEL_ CALL (START VIO allow other io to continue 
RETU RN; Senplete i/o in error 
END 
ELSE 
BEGIN 


PRAVL SSS IRAP OOS NOM RU 


end of volume processing 


Rts 


! Call to this code to ensure that all outstanding 10's on the driver have been 
' completed 


CHCK_I0_CLR_EXCP(); 


5 o38 END; 
§ 6 ; IF .JO_ERROR EQL SS$_SERIOUSEXCP 
8 4, THEN 
124 ot) ? BEGIN 
61 a 4 ! if the 10 was syonpsete because of a serious exception then 
6 44 4 i check to see if that was caused by an EOF. If caused 
o R962 2 by EOF then the 10 must be completed to the user. 
65 thd 4 i NOTE: When doing read aheads RMS will wait for all 10's to 
$8 sak 2 ! be completed before it does any EOF processing. 
68 0650 4 IF .HDRICHDISL_HDILID] EQL ‘EOF1' 
69 0651 4 TH 
ny Bo2¢ 2 ERR_EXIT(SSS$_ENDOFF ILE); 
7 0654 4 ! Check to see if user handling of EOT is enabled. If it 
ff bebe 2 - rsa complete request with abort if not queue for furture 
. u e 
75 bee? 4 
A} +34 ? AF gCUARENT VCOLYCEOY _EMUSEREOT 
78 0660 IN 
er8 308) PACKETCIRPSL_1OSTI2 = SS$_ABORT; 
; set See 
0665 5 BEGIN 
g 0666 5 KERNEL _CALLCINSERT_TAIL, .PACKET); 
§ : 10 PACRET = 0; 
‘ 4 END; , 
END; 
$ | IF .10_ERROR NEQ SS$_ENDOFFILE 
4 
4 
4 
4 
4 
4 
4 
3 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 


ae 
-~—O 
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Check to see if user eot handling is enabled. f, it is then the io must be 
posted to the user ohene with all outstanding jio's. The user must then 

issue @ command to the ACP to get processing to continue. If we are reading 
the tape and the status returned is EOT then complete the request but 

do not stop processing in the tape. The EOT status should not be returned 

by the driver while reading a tape. 


IF CURRENT -vCBCVCBSy ENUSEREOT) 
. Se CURRENT “WCBCWCBSV_READ] 
(.IG_ERROR EQC SS$_ENDOF TAPE) ) 


BEGIN 
When user eot handling is set ENDOFFILE and ENDOFVOLUME are not 
alternate success codes but are the code 


USER “Statustt) = -PACKETCIRPSL ~ 108th: 
USERS TATUSL1 - PACKET ts 10ST2 
‘e ERNEL CA CALL ( L(t0. DONE, » PACKET) 


The call to complete_vio here will be useful to the pre-mscp Poets Pn 
qustenesne 10 should’ be available to us here therefore we will cagtet 
it. Post-mscp drivers 10's should be completed via the SER TOUS EXC path. 


KERNEL _CALL (COMPLETE_VIO); 
RETURN: 


! Clear packet address 


IF NOT .CURRENT_WCBCWCBSV_READJ 
THEN 


BEGIN ! end of volume on write 
USER_STATUS<16, 16> = g spocee re ieee 10ST1])<16, 16>; 

USER-STATUSC1) = .PACKETCIRPSL_IOST27; 

NEXT_VOL_WRITE(); 


this io was written successfully 
KERNEL CALL (10 DONE, .PACKET); 


0. PA 
KERNEL _ EALL(START _VIO); 
! don't complete io 


END 
ELSE 
BEGIN ' end of volume on read 


! if end of tape on read, then make that io successful and 
requeue any blocked io. will eventually hit tape mark 
IF .JO_ERROR EQL SS$_ENDOF TAPE 
~ BEGIN 
KERNEL CALL (START VIO); } req ueue any lo bed | 
USER_STATUS< §. & =. aceerCiR petby! 10ST1J))< 
USER- STATUSCI - PACK Ete P$L_I0S 
RETURN; ! Comp 
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END 
BEGIN 
' cotcuiate the number of blocks since last tape mark. this 
will be compared with the number in the trailer record. 
since a tape mark tejogered end_of_vol processing, record 
it. free discover if this is the @nd_of_vol or end 


OCKS1 = ,CURRENT_UCBCUCBSL_RECORD] - 1 - 
URRENT_VCBLVCBSL_ST_RECORDI; 


IF .BLOCKS1 GEQ 0 

THEN 

BEGIN 

tape mark triggered end_of_file 

KERNEL_CALL(ADJTM, 1); 

IF NOT READ_BLOCK(.HDR1, ANSI_LBLSZ) 
(.HDRICEOI$SL_EOILID] NEQ ‘EOF1' 
-HDRICEO1$L_EO1LID] NEQ ‘EOV1") 
ERR_EXIT(SS$_TAPEPOSLOST) ; 

convert the number of blocks recored in the trailer 

record. compare it with the number read. if the numbers 
are not equal then return all virtual io to the user in 

: error. 

LIBSCVT_DTB(E01$S_BLOCKCNT, HDRICEO1$ST_BLOCKCNT], BLOCKS2); 

a aaa NEQ .BLOCKS2 

BBLOCKC.CURRENT VCBCVCBSL_VPFLJ, VVPS$~L arty, = 


-BBLOCKE. CURRENT veBLVCBSC_vPFi I, VVPSC_BLOCKDIF) + 
-BLOCKS1 = .BLOCRS2; 


L 
C 


! if end_of_file read, return all physical jo in error, 

signal user to read user labels now and return 

IF ,HDRICEO1$L_E01LID EQL ‘EOF1' 
ERR_EXIT(SS$_ENDOFFILE); 

end of volume processing 

NEXT_VOL_READ(); ! get next volume on read 

put in blocked io queue 
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KERNEL CALL (INSERT HEAD, «PACKET); 
10_PACRET = 0; ' don't complete io 
KERNEL_CALL(START_VIO); i requeue blocked jo 
RETURN: 

END 


! Scan the tape backwards to find the HDR1 Label. yee the HDR1 Label to 
! determine if this is pegrentne of tape or beginn ng of volume. 

! If while Scanning backwards the VOL1 label is received then there 

S an error or the tape postion was Lost. 


Fy a of ot ot ot ot at at at ot ot at 

oO UFEWN—O0ONO 
DOOSSDODOSOOOOOOCO 
G2 GO G0 G0. G0 Go Go Go 60 G0. G2 G2. G0 G0 G2 GO 


i a a at at 
PREREEE 
wr =o 
COOSCSOSCCO: 
G2 GO G0 C0 Go Go Go Go. 
WAWAIAA AIP POPOPPIPOPOPNINY 2 2 SO OS SS OO 


TITLE ENDVOL 
IDENT \V04-000\ 

EXTRN ADJTM, CHCK_10_CLR_EXCP 
EXTRN COMPLETE VIO, GTNERT_VOL_READ 
EXTRN GTNEXT_VOL_WRIT 


: ' 
3 5 7 3 
3 § 7 ; 
Py 7 ° 
Py 8 7 ° 
Py 7 ° 
3 0 § ELSE : 
; 1 BEGIN : 
3 ¢ 7 WHILE 1 DO : 
3 BEGIN 3 
; : IF at READ _BLOCK_REVERSE(.HDR1, ANSI_LBLSZ) ‘ 
: $ THEN (.HDORICHDISL_HDILIDJ] EQL ‘VOL1") ‘ 
3 rr 3 ERR_EXIT(SS$_TAPEPOSLOST); : 
3; 448 0 IF .HDRICHDISL_HDILIDJ EQL ‘HDR1' 3 
; 449 1 THEN EXITLOOP; ! if eql then found first Label : 
BP BR os : 
3 126 base 7 ! If eql one then first file section pogtanns of file. Not one other $ 
; 45 835 7 ! file sections are on other volumes mount the volume and position to ; 
; $28 bs § f ; the end of the volume want last record of last file. ; 
3; 456 0838 7 ™ = 0; $ 
; 457 0839 7 KERNEL _CALL(RESTORE_ POS, .1TM, .CURRENT_UCBLUCBSL_RECORD)); 3 
; 458 0840 7 IF .HDRICHD1$T_FILESECNO) EQL i ; 
3; 459 841 7 THEN : 
; 460 Berg : ERR_EXIT (SS$_BEGOFF ILE) 3 
; 461 084 : 
: 46 0844 7 'g tone until I figure what to do 3 
: 46 0845 8 ERR_EXIT (SS$_BEGOFF ILE) 3 
; 464 7) 6 END; ! end of BOF check else 3 
; 465 084 g F 
: 466 0848 END; ! end of read EOT check else 3 
; 467 0849 5 3 
; roe 329 ? END; ! if end_of_file or end_of_tape on read ‘ 
s ra 832 END; ! end of if write else read : 
: 47 B37 END; ! end of if map else error $ 
3 467 855 3 
: 674 856 END; ! end of routine : 


ve 


0000 00000 
5E 04 C2 BR 008 
0000G CF ODD Bp 
7E 6E sh C1 00009 
16 9E 4 €1 Boots 
04 0B AB 06 €1 00011 
0948 8F BF 00016 
31464745 = BF 00006 DF 01 QOOIA 
47 13 00023 
49 11 00025 
7E 04 00027 
SE 0D B08 9 
0000G CF 9F 00028 
000000006 9F F FB 398 F 
0 6 8 4 0036 
5 60 3C O003A 
Q00001A4 = 8F 75 D1 00030 
12 12 00044 
50 0000G CF 00 00046 
0080 ~=6c0 bp 0048 
00006 30 0004F 
5E 04 9 Bee 
018F 31 0005 
000021D4 8F 35 oI gages 
31464F45 = BF 0000G ODF Of 0061 
ge 12 OQ006A 
0870 F BF B98 

08 2D «AB 9 E1 4 
60 2e bp 0979 
4 7c 
. DD 00070 
DD 7F 

E po 

0000v ff F 00 

000000006 9F 4 FB 00 
0000G CF pe 
00000870 = 8F 52 01 9 
1€ 13 9A 
00000878 8F 52 D1 9 
15 13 QO0OA 
50 6E 38 C1 000A 


=> 
wn 


~™ 
wn 


Ww 
bad 
Cd 


ume 
ated 


oa 
Sd 


~“ 
bed 


=138 


1 
1 


a Bi 


~EXTRN 
»PSECT 


8:48 


AX-11 Bi hee -32 V4.0-7 
MTAACP. SRI ENDVOL.B 


19 DONE, LIBSCVT_DTB 
0) BLOCK, ‘ene ebacecrne 


35; 


WRITE TM 
TRAILERS, CURRENT_UCB 
sleat'c WCB, HORT 

io. PA ACKET USER_STATUS 

OSS CHKR 

See 2 

fe, 3p OF _VOL, Save nothing 


10_P Ack ET 
#42, ahACKET, -(SP) 
#4, acSP 

#6. + CCURRENT. vcB), 1$ 


‘d 

SuOR!. 4826691397 
5$ 

-(SP) 


rie "aRSYsscmmaw. 
Ty) 

(ROS, KE nkor 

9. ERROSS O80 
CURRENT_UCB, RO 
REPOSITION 
a SP 

O_ERROR, #8660 
@HDR1, #826691397 
160 

#1, 45(CURRENT_VCB), 6$ 
#56, PACKET, RO 
#44, (RO) 


PACKET 
#1 


SP 

INSERT 

#4, SPSYSSCRKRNL 
10. PAC 

J9-ERROR. #2160 
yeti #2168 
#56, PACKET, RO 


a 
ENDV 18-5e -1984 02:16: AX-11 Bliss-32 V4.0-74 Page 
v00~000 1 7338-1382 93:18:48 YATAACP’ SRE SENDVOL 83271 . 
00006 CF $0 DO 000A9 MOVL. (RO), USER STATUS ; : 
50 6E C A ADDL3 #60, PACKET, RO : : 
00006 CF og bo 8 MOVE {R §, USER_§TATUS+4 ; 
0000G CF F BA 8$ CALLS i, CHCK_10_CLR_EXCP : : 
44 $ A 64 EF OOOBE BBC #1, 45(CORRENT 0CB), 10$ : : 
5 00006 CF 09 C4 MOVL CURRENT WCB, RO ; ; 
0 B AO E C9 BLBC (RO), ~9$ : ; 
00000878 8F ; BY 900¢D CPL Iggrteor. #2168 ; : 
6E C1 00006 9$ ADDL3 #56, PACKET, RO ; ; 
00006 CF $0 0 Q00DA MOVL (R05, USER_STATUS F : 
50 6E C C1 OOODF ADDL3 #60, PACKET, R : ; 
00006 CF 60 00 OE OVL (ROS, USER_STATUS+4 : : 
E DD OO0E PUSHL PACKET : : 
1 DD OOOEA PUSHL #1 ; : 
E 0D OOEC PUSHL SP 3 : 
00006 CF 9F 000 PUSHAB 10_DONE ; : 
900000006 %F 0006 CF be OOF CURLY TO’PACRET 
7E D4 OO0FD CLRL 8=_ = (SP) ; : 
SE DD OOOFF PUSHL SP ; : 
00006 _ CF F 0101 PUSHAB COMPLETE_VIO ; : 
OOFC 31 00105 BRW 1 ; : 
50 00006 CF DO 00108 108: MOVL = CURRENT _wcB, RO F : 
22 0B AO €E8 0010D BLBS_ - 11(RO), -11$ 3 : 
6E 3A C1 00111 ADDL3 #58, PACKET, RO ; ; 
00006 CF 60 B80 00115 MOVW (ROS, USER STATUS+2 ; : 
6E 3¢ C1 OO1IA ADDL3 #60, PACKET, RO ; : 
00006 CF 60 00 OO1lE MOVL (ROS, USER STATUS+4 ; : 
0000v 30 001 BSBW NEXT _VOL_WRITE 3 : 
6E DD 01 6 PUSHL PACKET ; : 
01 DD 00128 PUSHL ; ; 
5E DD O012A PUSHL SP 3 ; 
00006 ¢F 3 1 ¢ PUSHAB 19, DONE ; : 
00000878 = &F 38 d| O135 118: CMPL —IQ,ERROR, #2168 ; : 
se D4 a C CLRL = = (SP) ; ; 
SE DD 0013€ PUSHL ; : 
00006 CF 9F 00140 PUSHAB START VIO ; : 
000000006 9 g3 FB 144 CALL 3, OPSYSSCMKRNL : 
00006 CF 60 80 OOl4F Mov (R05, USER_STATUS+2 ; : 
50 6E C1 00154 ADDL3 #60, PACKET, RO ; ; 
00006 CF 60 0 00198 MOVL (ROS, USER_STATUS+4 ; : 
0 CF 15— 128:  MOVL_ CURRENT UCB, R2 3 ; 
52 0080 23 : 39° A cy 188 SUBL3 GBCCURRENT VCBS , 176(R2), R2 ; ; 
p 16A DECL” = BLOCKS ; ; 
8 O016¢ BGEG = 3 ; 
0098 3 1 BRW 22$ ; : 
1 DD 00171 138:  PUSHL #1 ; F 
1 DD 0017 PUSHL #1 ; 3 
E pb 17 PUSHL SP ; 3 
00006 CFO 17 PUSHAB ADJTM ; : 
000000006 9F 4 FB 00178 CALLS #4, @#SYSSCMKRNL ; : 


m 8 
v0e- 1e$ep-1986 3:46:88 ENTAACESSReTENDVOL B32; inal 


7E 50 8F 9A 001 MOVZBL #80, -(SP) : 

00006 CF DD 001 PUSHL HDR4 : 

00006 CF ; EB 18A CALLS 2, READ_BLOCK : 

16 ES 0018F BLBC =_«RO,_:«*14$ : 

31464F45 BF 00006 DF b 192 CPL aHbRI, 4826691397 : 
31564F45 8F 00006 DF 01 0019D CMPL  @HDR1, #827739973 : 
4 13 1A BEQL 15$ : 

oer ORE OBE OOIAC 188; Stas BlorKs2 ; 

7E 00006 CF sf ci Ar ADDLS ria HDR1, =(SP) : 
000000006 9F a8 FB 183 CALLS #3, @#LIBSCVT_DTB : 
04 AE 33 D4 1B CHL BLOCKS , BLOCRS2 : 

50 3c = AB C#dO He MOVL 60 CURRENT VCB), RO : 

51 52 O1AC §=6CO SC 00168 ADDL3 428(RO), BCOCKS{, R1 ; 
o1ac = CO. 51 04 AE C3 ICE SUBL3 BLOCKS2, R1 4¢8 (RO) : 
31464F45 BF 00006 DF D1 001D5 16$: § CMPL $$ @HDR1, #826691397 : 
04 12 001DE BNEG 17$ : 

0870 _8F BF 001E0 CHMU #2160 ; 

0000v 30 OOiE4 17$:  BSBW NEXT_VOL_READ : 

6€ DD OO1E7 18$: | PUSHL PACKET ; 

Oi DD OOiES PUSHL #1 : 

E DD 001EB PUSHL SP : 

0000v CF 9F OO1ED PUSHAB INSERT_HEAD : 

000000006 9F 04 FB OOiF 19$: CALLS 4&4, @#SYSSCMKRNL 3 
00006 CF D4 001F8 CLRL 10 PACKET ; 

7E D4 OO1FC 20$: CLRL -(SP) : 

SE DD OO1FE PUSHL SP : 

00006 CF 9F 00200 PUSHAB START_VIO : 

000000006 9F 03 FB 00 04 21$: CALLS #3, @BSYSSCMKRNL ; 
52 00006 CF DO 0020C 28: MOVL HDR1, R2 ; 

7E 50 8F 9A 00211 23$:  MOVZBL #80, -(SP) ; 

52 DD 00 13 PUSHL ; 

00006 CF 08 FB 0021 CALLS #2, READ_BLOCK_REVERSE ; 

08 50 €9 0021C BLBC —OsséaR $ 3 

314C4F56 BF 0000G DF D1 O021F CMPL §@HOR1, #827084630 ; 
04 12 00228 BNEG 25$ F 

0224 BF BF 0022A 348 CHMU 6-« #548 : 

52 0G CF 00 00 5 5$ MOVL HDRI, R ; 

31524448 BF 62 D1 00 CMPL (Re), #827475016 : 
p 12 0 A BNEQ 23 ; 

D4 C CLRL =s«aT# ; 

50 00006 CF DO VL CURRENT UCB, RO ; 

00B0 £0 DD 0024 PUSHL 176(RO) ; 

1 DD 0024 PUSHL 1M ; 

ge DD 00249 PUSHL #2 ; 

E DD 00248 PUSHL SP ; 

00006 i F 0024D PUSHAB RESTORE_POS ; 

000000006 9F 5 F 1 CALLS #5, a#SYSS$CMKRNL : 
50 90096 cf D0 00258 MOVL 4HDR1, RO ; 

9 F BF 00250 CHMU ©: #2366 : 

4 00261 RET F 


; Routine Size: 610 bytes, Routine Base: $CODE$S + 0000 


iSseo-t9gs 99:16:43 


500 


SSS = 
uw 


2 tt OOO 
USwn—O Cen 


: Routine Size: 


AX-11 
MTAACP 


1Sosenct9Re 02:16:44 


Bliss-32 v4.0-74 
Snes eno vbr B3oe4 


35 } ROUTINE INSERT_HEAD (PACKET) : COMMON_CALL NOVALUE = 
6 1 '4¢ 
61 1 
£66 1 ! FUNCTIONAL DESCRIPTION: 
Baez ! } this routine inserts io packet at the header of the blocked io queue 
865 1 ! CALLING SEQUENCE: 
£66 ! } insert_head(argl), called in kernel mode 
0868 1 ! INPUT PARAMETERS: 
+44 ! } argi - address of io request packet 
0871 1°! IMPLICIT INPUTS: 
pers ! } current_vcb - address of current volume control block 
0874 1 ! OUTPUT PARAMETERS: 
0875 1! none 
0876 1! 
0877 1 =! IMPLICIT OUTPUTS: 
0878 1! none 
0879 1! 
0880 1 ! ROUTINE VALUE: 
0881 1! none 
pare 1! 
08835 1 ! SIDE EFFECTS: 
0884 1! packet inserted at head of queue 
0885 1! 
0886 1 !-- 
0887 1 
0888 § BEGIN 
0889 
0890 EXTERNAL REGISTER 
+94 COMMON : 
a895 clobber nmap until this function is in driver 
0895 INSQUE(.PACKET, CURRENT_VCBCVCB$L_BLOCKFL)); 
0896 1 END; ' end of routine 


0000 00000 INSERT me 


ORD Sav 
BC OE 00002 INSGUE SPACKET« CCORRENT.VCB) 
04 00006 RET 


SCODES + 0262 


68 04 


7 bytes, Routine Base: 


roe 


; 7 97 } 

; 8 99 1 ts 
3 0 300 1! 
3 2 1 9 ! 
3 » 308 1! 
3 4 904 1! 
: 382 308 1 | 
eo Bo 
3 9 sit 1! 
3 0 910 1! 
: 33) S912 4 | 
Pr 338 $318 1! 
3 bate 1! 
5 330 915 1! 
; > 0916 1! 
3 tA 0917 1! 
; 538 0918 1! 
; 539 0919 1! 
; 540 0920 1! 
: 541 0921 1! 
3 2t6 09 ¢ 1! 
; «54 09 1! 
3 544 0924 1! 
: 545 O3s2 . § 
; 546 0926 1 !- 
3; 547 bo56 1 

; 548 0928 2 

; 549 0929 
; 550 0930 

; 551 0931 

; 226 O36 

3 > 093 

: 554 0934 1 


; Routine Size: 8 bytes, 


555 0935 1 


14-Sep-1 


ROUTINE INSERT_TAIL (PACKET) : COMMON_CALL NOVALUE = 


+ 


FUNCTIONAL DESCRIPTION: 
ee inserts the packet in the tail of the blocked io request 


CALLING SEQUENCE: 
insert_tail(argi), called in kernel mode 


INPUT PARAMETERS: 
none 


IMPLICIT INPUTS: 
current_vcb - address of current volume control block 


OUTPUT PARAMETERS: 
none 

IMPLICIT OUTPUTS: 
none 

ROUTINE VALUE: 


none 
SIDE EFFECTS: 
none 


BEGIN 
EXTERNAL REGISTER 
COMMON : 


INSQUE(.PACKET, .CURRENT_VCBCVCB$L_BLOCKBL)); 
END; 1 end of routine 


0000 00000 INSERT_TAIL: 
WORD 


. Save neath ing 
04 + #«#6BB 04 BC OE 0000 INSQUE @PACKET, @4(CURRENT_VCB) 
04 0000 RET 


Routine Base: S$CODE$S + 0269 
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GLOBAL ROUTINE NEXT_VOL_WRITE : LSNEXT_VOL_WRIT NOVALUE = 


14 


leeachhe DESCRIPTION: 


Ss routine writes end of volume trailers, gets the next volume 
for write, and writes the header Labels. 


CALLING SEQUENCE: 


NEXT_VOL_WRITE() 


INPUT PARAMETERS: 
none 


; ieee | INPUTS: 


locked io queue 


OUTPUT PARAMETERS: 
none 


IMPLICIT OUTPUTS: 


io requeve to next volume 


ROUTINE VALUE: 
none 


SIDE EFFECTS: 


none 


USER ERRORS: 
none 


BEGIN 
EXTERNAL REGISTER 
COMMON : 
WRITE_TRAILERS('V"); ! write trailers 
WRITE_TM(); 
WRITE_TMQ); 
GTNEXT VOL_WRIT(); ! get the next volume for write 
WRITE_READERS(); ! write hdrl and hdr2 


: Close out header label set with tape mark 


WRITE_TM(); 
END; 


7E 56 8F 9A 00000 NEXT_VOL_WRITE:: 


BRK. 
1a-Sep-1986 15:46:38 ERTAACPCSRESENDVOL-830; 
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E -> ao 3 3 a om e om 

ENOVBR 18860-1984 93:16°4]  YAYGLL O4de5c82 us Bs249 Page If 
00006 3 Bee eee ST LeRS (= 

SE Os p a097 ADDL2 #4, SP : 

0006 A BSBW = WRITE_TM + 097 
60006 0 0000 BSBW  WRITE-TM : 097 
$330 30 Sod ESR SIT rt gt a 
00006 31 00016 BRW WRITE-TM : 0985 


; Routine Size: 25 bytes, Routine Base: S$CODE$ + 0271 
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16-Sep-1984 02:16: AX-11 Bliss-32 V4.0-74 

1 ~$00 71387 95: 16:4h YRTAACP SRE ENDVOL .832; 
GLOBAL ROUTINE NEXT_VOL_READ : LSNEXT_VOL_READ NOVALUE = 


14 
1 


! FUNCTIONAL DESCRIPTION: 

This routine positions the current volume at the very end, gets the 
next volume for read, verifies the headers and positions the tape at 
the beginning of the data section. 


CALLING SEQUENCE: 
NEXT_VOL_READ() 


INPUT PARAMETERS: 
none 


IMPLICIT INPUTS: 
blocked io queue 


OUTPUT PARAMETERS: 
none 


IMPLICIT OUTPUTS: 
requeve blocked io to next volume 


ROUTINE VALUE: 
none 


SIDE EFFECTS: 
none 


USER ERRORS: 
none 


BEGIN 
EXTERNAL REGISTER 
COMMON : 


: If user labels are read, a tape mark could be read, which makes TM=0 


SPACE_TM(IF .CURRENT_VCBCVCBSB_TM) EQL 0 THEN 1 ELSE 2); 
GTNEXT_VOL_READ(); ! get the next volume for read 
If .CURRENT_VCBCVCBSB_TM) EQL 0 

SPACE_TM(1); 
END; 


ENOVOL 1$-sep-1964 02:16:41 yanett OL iegn32 v4.02742 Page (19 
2E AB 95 00000 NEXT_VOL rie 46 (CURRENT yen) . 1031 


a er a! : 
A | BEER SH ag. : 
2E AB ° 

of BS 


1 
0000G CF i 


a es 


; Routine Size: 32 bytes, Routine Base: $CODE$ + 028A 


: Elapsed Time: 0:30.7 
3; Lines/CPU Min: 661 


: 66 1040 1 : 
; 66 1041 1 END : 
; 664 ok 1 : 
; 665 1043 0 ELUDOM ; 
; PSECT SUMMARY ; 
: Name Bytes Attributes : 
: SCODES 682 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) : 
; Library Statistics ; 
: eoeccece Symbols «------- Pages Processing : 
5 File Total Loaded Percent Mapped Time : 
; ~$255$DUA28: CSYSLIBILIB.L32;1 18619 29 0 1000 00:01.8 : 
; COMMAND QUALIFIERS ; 
: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:ENDVOL/OBJ=OBJ$:ENDVOL MSRC$:ENDVOL/UPDATE=(ENHS$:ENDVOL) : 
; Size: 682 + 0 data bytes : 

Run Time: 6°99 1 4 | : 


EE s/s nnn —_ — o=_ 


H 9 
ENO O 16-Sep-1984 02:16:41 VAK-11 Bliss-32 V4.0-742 Page 20 


; Lexemes/CPU-Min: 18540 
; ponery Use : 211 pages 
:; Compilation Complete 
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